home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
me_cd22.zip
/
MUTT2.ZIP
/
TOBASE.MUT
< prev
next >
Wrap
Text File
|
1992-04-27
|
476b
|
18 lines
;; tobase(n,base): convert n (base 10) to base. eg (tobase 10 16) => A
;; C Durland Public Domain
(include mod.mut)
(defun
tobase (int n base) HIDDEN
{
(if (< n base) (extract-elements "0123456789ABCDEF" n 1)
(concat
(tobase (/ n base) base) ; tobase n/base base
(tobase (mod n base) base) ; tobase (n mod base) base
)
)
}
)
;(msg (tobase (convert-to NUMBER (ask "n = "))
; (convert-to NUMBER (ask "base = "))))